home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / start.Dxr / 00040.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  516 b   |  23 lines
  1. on mouseUp
  2.   global myWindow
  3.   sound stop 1
  4.   pause()
  5.   if objectp(myWindow) then
  6.     forget(myWindow)
  7.   end if
  8.   set myWindow to window "quit"
  9.   set the fileName of myWindow to "quit"
  10.   set L to the stageLeft
  11.   set T to the stageTop
  12.   set B to the stageBottom
  13.   set r to the stageRight
  14.   set the rect of myWindow to rect(L, T, r, B)
  15.   if the machineType = 256 then
  16.     set the windowType of myWindow to 2
  17.   else
  18.     set the windowType of myWindow to 2
  19.   end if
  20.   set the modal of myWindow to 1
  21.   open(myWindow)
  22. end
  23.